home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / daten / adm / installieren < prev    next >
Text File  |  1996-09-16  |  16KB  |  535 lines
  1. ; Installer installation script for ADM/AddressMaster
  2. ; --------------------------------------------------------------
  3. ; $VER: Install ADM 3.0 (29.3.96)
  4. ; Copyright by Jan Geissler 1996
  5.  
  6. (welcome "Willkommen bei der AddressMaster Installation")
  7.  
  8. (set @default-dest "")
  9. (set @abort-button "Installation abbrechen")
  10. (set @app-name "AddressMaster")
  11. (set default_lang 1)
  12. (set #msg-icon-prompt   "Kopiere Icon.")
  13.  
  14.  
  15. ; DEF DATEIEN------------------------------------------------------------------
  16.  
  17. (set #msg-doserror-msg  "DOS Fehler %ld aufgetreten.")
  18. (set #msg-dest-prompt
  19.     (cat
  20.             "Wo soll das Unterverzeichnis \"ADM\" angelegt werden? "
  21.             "(Ein evtl. vorhandenes Verzeichnis wird umbenannt)"
  22.     )
  23. )
  24. (set #msg-dest-help
  25.     (cat
  26.             "Hier kann das Verzeichnis ausgewählt werden, "
  27.                         "in dem ein ADM-Verzeichnis angelegt werden soll.\n"
  28.                         "Das Verzeichnis wird unter dem Namen \"ADM\" "
  29.                         "angelegt; ist ein solches schon vorhanden, wird "
  30.                         "dieses umbenannt, d.h. Daten gehen NICHT verloren!"
  31.     )
  32. )
  33.  
  34.  
  35. ; DEF MAGICWB------------------------------------------------------------------
  36.  
  37. (set #msg-lhxmagicwb     "Ersetze Piktogramme durch MagicWB-Icons")
  38. (set #msg-magicwb-prompt
  39.         (cat    "\nBenutzen Sie die 8-Farb-MagicWB-Farbpalette?\n"
  40.                 "Dann besteht hier die Möglichkeit, die 8-Farb-"
  41.                 "Iconographics-Piktogramme durch MagicWB-Icons zu ersetzen. "
  42.                 "('Hilfe' für nähere Erläuterung)\n\n"
  43.         )
  44. )
  45. (set #MagicWB "MagicWB (8-Farb-MagicWB)")
  46. (set #Iconographics "Iconographics (4/8-Farb-WB)")
  47. (set #MagicWBPr "Welche Piktogramme wollen Sie verwenden?")
  48. (set #msg-magicwb-help
  49.         (cat    "\nNormalerweise enthält die ADM-Distribution "
  50.                 "8-Farb-Piktogramme der 'Iconographics'-Palette. "
  51.                 "Diese sehen auch unter einer normalen Vier-Farb-Workbench "
  52.                 "schön aus, was bei MagicWB-Icons nicht der Fall ist.\n\n"
  53.                 "Wählen Sie nun, ob Sie die MagicWB-Piktogramme "
  54.                 "benutzen wollen - NUR dann empfehlenswert, wenn Sie "
  55.                 "auch die spezielle MagicWB-Farbpalette benutzen!"
  56.         )
  57. )
  58.  
  59.  
  60. ; DEF AREXX-ARC------------------------------------------------------------------
  61.  
  62. (set #msg-lhxarexx     "\n\n\nEntpacke Makro-Archiv...")
  63. (set #msg-unpackarexx-prompt
  64.         (cat    "\nWollen Sie mehr als 50 nützlichen Makros für ADM "
  65.                       "gebrauchsfertig ins ADM-ARexx-Verzeichnis "
  66.                       "entpacken?\n\n"
  67.                       "Die Makros enthalten nützliche Anwendungen wie "
  68.                       "verschiedenartige Listendrucke, Datenübergabe z.B. an "
  69.                       "TeX, Faxprogramme, Editoren, FinalWriter, WordWorth "
  70.                       "oder MSWord, MSExcel - und noch viel mehr!\n\n"
  71.                       "Sie sind fast alle völlig ohne ARexx-Kenntnisse nutzbar!"
  72.         )
  73. )
  74. (set #msg-unpackarexx-help
  75.         (cat    "'Yes' entpackt die nützlichen Makros gebrauchsfertig ins ADM-Verzeichnis, "
  76.                 "'No' kopiert nur die LHA-gepackte Datei dorthin"
  77.         )
  78. )
  79.  
  80.  
  81. ; DEF KEY INSTALL---------------------------------------------------------------
  82.  
  83. (set #msg-defexe-prompt "Kopiere Dateien...")
  84. (set #msg-keyfile-prompt
  85.      (cat "Vielen Dank für die Registrierung von ADM!\n\n"
  86.           "Jetzt wird Ihr PERSÖNLICHES Key-File in DEVS: "
  87.           "installiert. Da es Ihren Namen und Ihre Adresse "
  88.           "enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
  89.      )
  90. )
  91. (set #msg-keyfile-help
  92.      (cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
  93.           "Verzeichnis kopiert werden.\n"
  94.           "Da es Ihren Namen und Ihre Adresse enthält, darf es "
  95.           " *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
  96.           "falsche Hände geraten!"
  97.      )
  98. )
  99.  
  100. ; DEF RENAME------------------------------------------------------------------
  101.  
  102. (set #msg-renameADM-help
  103.     (cat    "\n\nUm ein Überschreiben einer alten Installation "
  104.         "zu verhindern, wird das alte Verzeichnis bei "
  105.         "Neuinstallation umbenannt".
  106.     )
  107. )
  108.  
  109. ; DATEIEN KOPIEREN-----------------------------------------------------------
  110.  
  111. (set #msg-copyadm-prompt
  112.     "Kopiere ADM-Distribution..."
  113. )
  114. (set #msg-copyicon-prompt
  115.     "Kopiere ADM-Icon..."
  116. )
  117. (set #msg-makediradm-prompt
  118.     "Erstelle ADM-Verzeichnis..."
  119. )
  120. (set #msg-copyold-prompt
  121.     "Kopiere vorhandene Adressdateien..."
  122. )
  123. (set #msg-copyform-prompt
  124.     "Kopiere vorhandene Formulardateien..."
  125. )
  126.  
  127. (user 2)
  128.  
  129. (if (< (/ (getversion) 65536) 37)
  130.   (
  131.     (abort "ADM benötigt mindestens die Btriebssystemversion 2.04!")
  132.   )
  133. )
  134.  
  135. (complete 0)
  136.  
  137. (message "\n"
  138.          "Hiermit kann\n\nADDRESSMASTER (ADM)\n- DIE deutschsprachige Adressverwaltung für den Amiga-\n\n"
  139.          "installiert werden. Ältere installierte Versionen werden NICHT überschrieben\n\n"
  140.          "AddressMaster is © 1993-96 by Jan Geissler\n"
  141.          "All rights reserved."
  142. )
  143.  
  144. ; Zielverzeichnis auswählen -----------------------------------------------------
  145.  
  146. (set ADMDir
  147.         (askdir
  148.                 (prompt #msg-dest-prompt )
  149.                 (default "sys:")
  150.                 (help   #msg-dest-help)
  151.         )
  152. )
  153. (set ADMDestDir
  154.     (tackon ADMDir "ADM")
  155. )
  156. (set @default-dest ADMDestDir)
  157.  
  158.  
  159. ; Vorhandenes Verzeichnis umbenennen? -----------------------------------------------------
  160.  
  161.  
  162. (set ExistsADMDir 1)
  163. (set ExistsADMCount 1)
  164. (set RenameADMold "ADM.old")
  165. (set ADMBackupName "")
  166.  
  167. (set
  168.    ExistsADMDir (exists ADMDestDir (noreq))
  169. )
  170.  
  171. (while (> ExistsADMDir 0)
  172.     (
  173.             ; ----- Backup-Name erzeugen
  174.  
  175.             (while (exists (tackon ADMDir (cat "ADM.old" ExistsADMCount)) (noreq))
  176.                     (set ExistsADMCount (+ ExistsADMCount 1))
  177.             )
  178.             (set ADMBackupName
  179.                     (cat "ADM.old" ExistsADMCount)
  180.             )
  181.  
  182.  
  183.             ; ---- Umbenennen
  184.  
  185.                 (set #msg-renameADM-prompt
  186.                         (cat    "\n\nEs existiert schon ein Verzeichnis namens \"ADM/\".\n\n"
  187.                                 "Um zu verhindern, daß bestehende Daten überschrieben "
  188.                                 "werden, muß es umbenannt werden.\n\n"
  189.                         "Es wird nun umbenannt in \"" ADMBackupName "\"."
  190.                         )
  191.                 )
  192.  
  193.         (rename ADMDestDir (tackon ADMDir ADMBackupName)
  194.             (prompt #msg-renameADM-prompt)
  195.             (help #msg-renameADM-help)
  196.             (confirm)
  197.         )
  198.         (if (exists (tackon ADMDir "ADM.info"))
  199.             (
  200.                         (rename (tackon ADMDir "ADM.info") (tackon ADMDir (cat ADMBackupName ".info"))
  201.                     (prompt #msg-renameADM-prompt)
  202.                     (help #msg-renameADM-help)
  203.                 )
  204.                                 (run (cat "c/drawicon " (tackon ADMDir (cat ADMBackupName ".info")))
  205.                                 )
  206.             )
  207.         )
  208.                 (set
  209.                    ExistsADMDir (exists ADMDestDir (noreq))
  210.                 )
  211.     )
  212. )
  213. (complete 5)
  214.  
  215.  
  216. ; Verzeichnis erstellen ---------------------------------------------------------------
  217.  
  218. (makedir ADMDestDir
  219.         (prompt #msg-makediradm-prompt)
  220. )
  221.  
  222. (if (exists "/ADM.info")
  223.     ; then
  224.     (
  225.                 (copyfiles
  226.                         (prompt #msg-copyicon-prompt)
  227.                         (help #msg-copyicon-prompt)
  228.                         (source "/ADM.info")
  229.                         (dest ADMDir )
  230.                         (optional nofail)
  231.                 )
  232.     )
  233.  
  234.     ; else
  235.     (
  236.                 (copyfiles
  237.                         (prompt #msg-copyicon-prompt)
  238.                         (help #msg-copyicon-prompt)
  239.                         (source "Icons/ADMdrawer")
  240.                         (dest ADMDir )
  241.                         (newname "ADM.info")
  242.                         (optional nofail)
  243.                 )
  244.     )
  245. )
  246.  
  247. (run (cat "c/DrawIcon " ADMDestDir))
  248.  
  249. (complete 7)
  250.  
  251.  
  252.  
  253. ; Daten kopieren ---------------------------------------------------------------
  254.  
  255. (copyfiles
  256.         (prompt #msg-copyadm-prompt)
  257.         (source "")
  258.         (dest ADMDestDir )
  259.         (infos)
  260.         (all)
  261.         (optional nofail)
  262. )
  263. (complete 50)
  264.  
  265. (set ADMExtName
  266.     (tackon ADMDestDir "Extern/")
  267. )
  268.  
  269.  
  270. ; ARexx-Makros ---------------------------------------------------------------
  271.  
  272.  
  273. (set UnpackARexx
  274.         (askbool
  275.         (prompt #msg-unpackarexx-prompt)
  276.                 (help   #msg-unpackarexx-help )
  277.                 (default 1)
  278.                 (choices "Makros installieren" "Kein Interesse")
  279.         )
  280. )
  281. (set ARexxArcName
  282.     (tackon ADMDestDir "ARexx/ADM-ARexxMakros.lha")
  283. )
  284.  
  285. (if (= UnpackARexx 1)
  286.         (
  287.       (working #msg-lhxarexx)
  288.           (run (cat "c/lhx x "
  289.                     ARexxArcName
  290.                     " "
  291.                     (tackon ADMDestDir "ARexx/")
  292.                )
  293.           )
  294.       (delete ARexxArcName)
  295.       (delete (cat ARexxArcName ".info"))
  296.         )
  297. )
  298. (complete 70)
  299.  
  300.  
  301. ; Iconset: Die Glaubensfrage ---------------------------------------------------------------
  302.  
  303. (set MagicWBInst   (askchoice  (choices #Iconographics #MagicWB)
  304.                            (prompt (cat #msg-magicwb-prompt " " #MagicWBPr))
  305.                            (help   (cat #msg-magicwb-help))
  306.                          (default 0)
  307.           )
  308. )
  309.  
  310. (if (= MagicWBInst 1)
  311.         (
  312.           (working #msg-lhxmagicwb)
  313.           (run (cat "c/lhx x Icons/MagicWB-Icons.lha " ADMDestDir "/"))
  314.           (if (exists (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  315.               (delete (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  316.           )
  317.         )
  318. )
  319. (complete 75)
  320.  
  321.  
  322. ; Alte Daten kopieren --------------------------------------------------------
  323.  
  324. (if (NOT (= ADMBackupName ""))
  325.     (
  326.         (set OldAdrDir
  327.             (tackon (tackon ADMDir ADMBackupName) "Adressen/")
  328.         )
  329.         (set OldFormDir
  330.             (tackon (tackon ADMDir ADMBackupName) "Formulare/")
  331.         )
  332.         (set OldADMName
  333.             (tackon (tackon ADMDir ADMBackupName) "AddressMaster")
  334.         )
  335.         (set OldExtDir
  336.             (tackon (tackon ADMDir ADMBackupName) "Extern/")
  337.         )
  338.         (set ADMExtDir
  339.             (tackon ADMDestDir "Extern/")
  340.         )
  341.  
  342.  
  343.     ; --- Adressdateien kopieren
  344.  
  345.         (if (= (exists OldAdrDir) 2)
  346.                (copyfiles
  347.                        (prompt #msg-copyold-prompt)
  348.                        (source OldAdrDir )
  349.                        (dest (tackon ADMDestDir "Adressen/"))
  350.                        (infos)
  351.                        (all)
  352.                        (optional nofail)
  353.                )
  354.         )
  355.  
  356.  
  357.     ; --- Formulardateien kopieren
  358.  
  359.         (if (= (exists OldAdrDir) 2)
  360.                (copyfiles
  361.                        (prompt #msg-copyform-prompt)
  362.                        (source OldFormDir )
  363.                        (dest (tackon ADMDestDir "Formulare/"))
  364.                        (infos)
  365.                        (all)
  366.                        (optional nofail)
  367.                )
  368.         )
  369.  
  370.  
  371.     ; --- ICON-Tooltypes kopieren
  372.     ; Durch einen Bug in IconType muss IconType im
  373.     ; aktuellen Verzeichnis liegen, deshalb kopiere
  374.     ; ich's.
  375.  
  376.         (copyfiles
  377.                 (prompt #msg-copyicon-prompt)
  378.                 (source (tackon ADMDestDir "c/IconType" ))
  379.                 (dest ADMDestDir)
  380.                 (optional nofail)
  381.         )
  382.  
  383.         (if (= (exists OldADMName) 1)
  384.             (
  385.                 (run
  386.                      (cat "IconType " OldADMName " " (tackon ADMDestDir "AddressMaster")
  387.                      )
  388.                 )
  389.             )
  390.         )
  391.  
  392.         (delete (tackon ADMDestDir "IconType"))
  393.  
  394.  
  395.     ; --- ExternInfo-Dateien kopieren
  396.  
  397.         (if (= (exists OldExtDir) 2)
  398.                (copyfiles
  399.                        (prompt #msg-copyold-prompt)
  400.                        (source OldExtDir )
  401.                        (dest ADMExtDir)
  402.                        (infos)
  403.                        (all)
  404.                        (optional nofail)
  405.                )
  406.         )
  407.     )
  408. )
  409.  
  410. (complete 60)
  411.  
  412.  
  413.  
  414. ; Iconset: Key-File installieren ---------------------------------------------------------------
  415.  
  416. (if (exists "/Key-File/ADM.key")
  417.     (
  418.          (copyfiles
  419.                  (prompt #msg-keyfile-prompt)
  420.                  (source "/Key-File/ADM.key")
  421.                  (dest "devs:" )
  422.                  (help #msg-keyfile-help)
  423.                  (infos)
  424.                  (confirm)
  425.          )
  426.          (set KeyCopied 1)
  427.     )
  428. )
  429. (complete 80)
  430.  
  431.  
  432. ; Iconset: Libraries installieren ---------------------------------------------------------------
  433.  
  434. (copylib
  435.   (prompt "\n\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  436.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  437.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  438.         @copylib-help)
  439.   (source "libs/ReqTools.library")
  440.   (dest "LIBS:")
  441.   (confirm)
  442. )
  443. (complete 83)
  444.  
  445. (copylib
  446.   (prompt "\n\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  447.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  448.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  449.         @copylib-help)
  450.   (source "libs/rexxreqtools.library")
  451.   (dest "LIBS:")
  452.   (confirm)
  453. )
  454. (complete 86)
  455.  
  456. (if (= (exists ("sys:classes/gadgets")) 2)
  457.     (
  458.                 (copylib
  459.                   (prompt "\n\nInstalliere textfield.gadget\n")
  460.                   (help "\nDas Textfield.gadget wird vom Bemerkungsfeld verwendet. "
  461.                         @copylib-help)
  462.                   (source "gadgets/textfield.gadget")
  463.                   (dest "sys:classes/gadgets/")
  464.                   (confirm)
  465.                 )
  466.     )
  467. )
  468. (complete 90)
  469.  
  470.  
  471. ; Nicht mehr nötige Sachen löschen --------------------------------------------
  472.  
  473. (if (exists (tackon ADMDestDir "Installieren"))
  474.     (delete (tackon ADMDestDir "Installieren"))
  475. )
  476. (if (exists (tackon ADMDestDir "Installieren.info"))
  477.     (delete (tackon ADMDestDir "Installieren.info"))
  478. )
  479. (complete 100)
  480.  
  481.  
  482. ; Finally, it's happy to be... -----------------------------------------------
  483.  
  484. (message
  485.          "\nAddressMaster (ADM) ist nun installiert.\n\n"
  486.          "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
  487.          "MasterAddress) weiterzuverwenden, können sie mit dem "
  488.          "beiliegenden Datenumwandler komfortabel in ADM-Dateien "
  489.          "umgewandelt werden.\n\n"
  490.          "Desweiteren liegen verschiedene ADM-Makros bei, "
  491.          "die den Import anderer Formate (ASCII, SBase4, "
  492.          "Excel, AdressControl) und den Export zur weiteren Verwendung "
  493.          "der Daten ermöglichen."
  494. )
  495.  
  496. (message "\n"
  497.          "Die Dokumentation des Programms ist überall im Programm "
  498.          "\"online\" durch Drücken der \"HELP\"-Taste in einem "
  499.          "Fenster oder aktivem Eingabefeld erreichbar.\n\n"
  500.          "Man kann ADM auch sehr leicht ohne Anleitung kennenlernen, "
  501.          "manche Besonderheiten wird man dann jedoch nie entdecken."
  502. )
  503.  
  504. (if (= KeyCopied 1)
  505.   (
  506.       (message    "\nNochmals herzlichen Dank für Ihre Registrierung!\n\n"
  507.             "Bitte geben Sie Ihr persönliches \"Key-File\" auch nicht "
  508.             "an einen guten Freund weiter - es enthält Ihren Namen "
  509.             "und Ihre Adresse.\n"
  510.                   "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  511.                   "weiterentwickelt wird und weitere Shareware-Produkte "
  512.                   "von mir für den Amiga entstehen!"
  513.       )
  514.   )
  515.   (
  516.       (message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
  517.                "Wenn Sie ADM kennengelernt haben und es öfters benutzen "
  518.                "wollen, sollten Sie sich für nur DM 25,- registrieren lassen!\n"
  519.                "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  520.                "weiterentwickelt wird und weitere Shareware-Produkte "
  521.                "von mir für den Amiga entstehen!"
  522.       )
  523.   )
  524. )
  525.  
  526. (message     "\n\n\nIch freue mich auch über Vorschläge und jede Art von 'Feed-Back'!"
  527.         "\nSenden Sie diese an meine in der Dokumentation angegebene "
  528.         "Adresse oder im Internet an jan@digit.franken.de."
  529.         "\n\nViel Spaß mit ADM wünscht Ihnen\nJan Geißler")
  530.  
  531.  
  532. (exit)
  533. ; =============================================================================
  534. ; =============================================================================
  535.